﻿Imports omen02

Public Class ListarUsuario

    Private Sub ListarUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim negocio As New UsuarioNegocio
        Dim usuarios As Collection = negocio.listar()

        Me.dgvpaquete.DataSource = usuarios
        Me.dgvpaquete.EditMode = False

        Me.dgvpaquete.Columns(0).HeaderText = "idUsuario"
        Me.dgvpaquete.Columns(1).HeaderText = "clave"
        Me.dgvpaquete.Columns(2).HeaderText = "correo"
        Me.dgvpaquete.Columns(3).HeaderText = "telefono"
        Me.dgvpaquete.Columns(4).HeaderText = "direccion"
        Me.dgvpaquete.Columns(5).HeaderText = "fecha_instacion"
        Me.dgvpaquete.Columns(6).HeaderText = "nombre"
        Me.dgvpaquete.Columns(7).HeaderText = "apellido"
        Me.dgvpaquete.Columns(8).HeaderText = "estado"
        Me.dgvpaquete.Columns(9).HeaderText = "tipo_user"
        Me.dgvpaquete.Columns(10).HeaderText = "localidad"
        Me.dgvpaquete.Columns(11).HeaderText = "provincia"

    End Sub

    Private Sub dgvusuario_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvpaquete.CellContentClick

    End Sub

    
End Class